home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / util / rexx / TasString.lha / tasstring / tasstring.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2004-09-10  |  475 b   |  28 lines
  1. /* tasuj stringi */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. IF ~OPEN('S1','RAM:Source1','r') THEN LEAVE
  6. IF ~OPEN('S2','RAM:Source2','r') THEN LEAVE
  7. IF ~OPEN('D','RAM:Dest','w') THEN LEAVE
  8.  
  9. DO UNTIL EOF('S1')
  10.  
  11.   linia1 = READLN('S1')
  12.   control = LEFT(linia1, 2)
  13.  
  14.   IF control = 'ID' THEN DO
  15.  
  16.      /* SAY('Îâczë...\n') */
  17.      WRITELN('D', linia1)
  18.      linia2 = READLN('S2')
  19.      WRITELN('D', linia2)
  20.   END
  21.  
  22.  
  23.   IF control ~= 'ID' THEN DO
  24.      IF control ~= '##' THEN WRITELN('D', linia1)
  25.   END
  26.  
  27. END
  28.